<script>on closefieldrepeatif me is empty then exit repeatif the last Line of me is emptythenplay "knock3"delete last line of meelse exit repeatend repeatsend UpdateMe to bg field "MenuItems"end closefield</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>351</left>
<top>67</top>
<right>458</right>
<bottom>86</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>352</left>
<top>85</top>
<right>459</right>
<bottom>253</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>DeleteList</name>
<script>-- SCRIPT FOR BG FIELD DELETELISTon mouseupdoMenu "background"select before text of meend mouseupon exitfielddomenu backgroundend exitfieldon closefieldif line 1 of me is not empty thenrepeatif the last Line of me is emptythenplay "knock3"delete last line of meelse exit repeatend repeatend ifdomenu backgroundend closefield</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>256</top>
<right>163</right>
<bottom>275</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Reset Menu</name>
<script>on mouseUpput the ticks into StartTicsset cursor to watchreset menubarput (the ticks - StartTics)/60 && "Seconds"play "Crystal2"play "Crystal2"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>276</top>
<right>163</right>
<bottom>295</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Protect Stack...</name>
<script>on mouseUpput "domenu" && Quote & "Protect Stack..." & Quote into tempsend temp to HyperCardend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>276</top>
<right>329</right>
<bottom>295</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>User Level</name>
<script>on mouseUpask "User Level? (1-5)" with the userlevelput the ticks into StartTicsif it is not empty then set userlevel to itput (the ticks - StartTics)/60 && "Seconds"play "Crystal2"play "Crystal2"set cantpeek of this stack to falseend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>187</left>
<top>2</top>
<right>346</right>
<bottom>21</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Card / Menu Card</name>
<script>on mouseUpdomenu "New Card"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>257</left>
<top>31</top>
<right>349</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>CardNo</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>243</left>
<top>45</top>
<right>331</right>
<bottom>67</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Get Menu</name>
<script>on mouseUpput bg field "MenuName" into TheNameif there is a menu TheName then put menu theName into bg field "items"end mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>256</top>
<right>329</right>
<bottom>275</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Create Menus</name>
<script>on mouseUpput the ticks into StartTicsNewCreateMenusput (the ticks - StartTics)/60 && "Seconds"play "Crystal2"play "Crystal2"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>356</left>
<top>7</top>
<right>512</right>
<bottom>61</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>MenuItems</name>
<script>on mouseuphide meupdatemeend mouseupon updateMeput empty into NewListset cursor to watchrepeat with x = 1 to the number of lines in bg field Itemsput item 1 of line x of bg field Items & return after NewListend repeatrepeat with x = number of lines in NewList down to 1if line x of NewList is empty then delete line x of NewListend repeatput NewList into meend updateMe</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>332</left>
<top>256</top>
<right>351</right>
<bottom>295</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go</name>
<script>on mouseUpask "Go to which card?"if it is not empty then go card itend mouseUp</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>353</left>
<top>35</top>
<right>512</right>
<bottom>296</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>MyTools</name>
<script>-- SCRIPT FOR BG FIELD DELETELISTon mouseupdoMenu "background"end mouseupon exitfielddomenu backgroundend exitfieldon closefieldif line 1 of me is not empty thenrepeatif the last Line of me is emptythenplay "knock3"delete last line of meelse exit repeatend repeatend ifdomenu backgroundend closefield</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>16</top>
<right>511</right>
<bottom>35</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MyTools</name>
<script>on mouseUpmytoolsend mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>16</top>
<right>376</right>
<bottom>34</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif visible of bg field "mytools" is true then set visible of bg field "mytools" to falseelse set visible of bg field "mytools" to trueend mouseUp</script>
<script>-- on openbackground-- addcolor,colorcard,stamp,1-- end openbackgroundon opencardput (number of this card - number of first card of this bg + 1) into bg field cardNoend opencard-- SCRIPT FOR BG SCRIPTon CreateMenusNewCreateMenusend CreateMenuson DeleteItlock screenplay "tear"push next card of this bgdomenu "delete Card"pop cardend DeleteIton NewCreateMenusset cursor to watchset lockMessages to Trueset LockRecent to Truelock screenpush cardgo to first card of bg "Menu Maker"-- theMenu = current menu being built----- Delete uneeded menus -------repeat with CountW = 1 to the number of lines in bg field "DeleteList"put line CountW of bg field "DeleteList" into DeleteNameif there is a menu DeleteNamethen delete menu DeleteNameend repeat-- Build Item Names --------------repeat with CountX = 1 to the number of cards in this bgput bg field "MenuName" of card CountX of this bg into TheMenuput Bg Field "MenuItems" of card CountX of this bg into MenuItemsput bg field "Items" of card CountX of this bg into OtherItemsif (there is a menu TheMenu) and (TheMenu ≠ "1")thenIf menuItems is not emptythenput MenuItems into menu TheMenuend ifelse if there is not a menu TheMenuthencreate menu TheMenuIf menuItems is not emptythenput MenuItems into menu TheMenuend ifelse if TheMenu = 1thenPut line 1 of MenuItems into MenuItem 1 of menu 1end if---- BUILD ITEM MESSAGES AND COMMAND KEYS ----------repeat with TheLine = 1 to the number of lines in OtherItemsif item 2 of Line TheLine of OtherItems is not emptythen set MenuMsg of MenuItem TheLine of Menu TheMenu to item 2 of ¬Line TheLine of OtherItemsif item 3 of Line TheLine of OtherItems is not emptythen set commandChar of MenuItem TheLine of Menu TheMenu to item 3 of ¬Line TheLine of OtherItemsif item 4 of Line TheLine of OtherItems is not emptythen set TextStyle of MenuItem TheLine of Menu TheMenu to item 4 of ¬Line TheLine of OtherItems----end repeatend repeatpop cardunlock screenend NewCreateMenuson MyToolsset cursor to watchset lockMessages to Trueset LockRecent to Truelock screenpush cardgo to first card of bg "Menu Maker"-- Build Item Names --------------put "My Tools" into TheMenurepeat with z = 1 to the number of lines in bg field "MyTools"put item 1 of line z of Bg Field "MyTools" into line z of MenuItemsend repeatif there is not a menu TheMenu then create menu TheMenuIf menuItems is not emptythenput MenuItems into menu TheMenuend if---- BUILD ITEM MESSAGES AND COMMAND KEYS ----------put Bg Field "MyTools" into otherItemsrepeat with TheLine = 1 to the number of lines in otherItemsif item 2 of Line TheLine of OtherItems is not emptythen set MenuMsg of MenuItem TheLine of Menu TheMenu to item 2 of ¬Line TheLine of OtherItemsif item 3 of Line TheLine of OtherItems is not emptythen set commandChar of MenuItem TheLine of Menu TheMenu to item 3 of ¬Line TheLine of OtherItemsif item 4 of Line TheLine of OtherItems is not emptythen set TextStyle of MenuItem TheLine of Menu TheMenu to item 4 of ¬Line TheLine of OtherItems----end repeatpop cardunlock screenend MyToolson NoToolsdelete menu "My Tools"end NoTools</script>
